From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 25 May 1993 02:28:03 +0000 (+0000)
Subject: (x-create-frame-with-faces): Handle `reverse' as parameter.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96011
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1dd6d2a2dd22fa69f0d3be1112c908889fd83aa9;p=emacs.git

(x-create-frame-with-faces): Handle `reverse' as parameter.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 1f4f6ba723f..34b88ff5950 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -724,6 +724,17 @@ If NOERROR is non-nil, return nil on failure."
 	   (rest faces))
       (set-frame-face-alist frame faces)
 
+      (if (cdr (or (assq 'reverse parameters)
+		   (assq 'reverse default-frame-alist)))
+	  (let ((params (frame-parameters frame)))
+	    (modify-frame-parameters
+	     frame
+	     (list (cons 'foreground-color (cdr (assq 'background-color params)))
+		   (cons 'background-color (cdr (assq 'foreground-color params)))
+		   (cons 'mouse-color (cdr (assq 'background-color params)))
+		   (cons 'cursor-color (cdr (assq 'background-color params)))
+		   (cons 'border-color (cdr (assq 'background-color params)))))))
+
       ;; Copy the vectors that represent the faces.
       ;; Also fill them in from X resources.
       (while rest